home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb38891.lsp < prev    next >
Text File  |  1998-03-15  |  3KB  |  80 lines
  1. ;=============388.91 Zwinge
  2.  
  3. (EAITDBL "0038891")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:38891S1 ( / X P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 Wi Wix WH WV
  8.                      E1 SS1 BName)
  9.    (EAITDBL "0038891")
  10.    (princ (strcat "\n\n" EAITbez1))
  11.    (EAITvari)
  12.    (EAITvars)
  13.    (setq X nil)
  14.    (while (not X)
  15.       (if (not EAITebl)(setq EAITebl 6))
  16.       (EAITmsg "mb_mld15" "\n" "010" "<")(princ EAITebl)(princ "> : ") ;Dicke des Flaechenelementes
  17.       (initget 6)
  18.       (setq X (getint))
  19.       (cond ((= X nil)(setq X EAITebl))
  20.             ((AND (>= X 4)(<= X 10))(princ))
  21.             (T        (setq X nil))
  22.      )
  23.    )
  24.    (setq EAITebl X)
  25.    (setvar "ORTHOMODE" 1)
  26.    (EAITbpt EAITofpun 8 nil)
  27.    (setq P1 (getpoint))
  28.    (if (= P1 nil)(setq P1 (EAITrpt)))
  29.    (setvar "ORTHOMODE" 0)
  30.    (setvar "OSMODE" 0)
  31.    (setvar "ORTHOMODE" 1)
  32.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  33.    (command EAITege (strcat EAITpfn "38891s1") P1 "" "" EAITofkei pause)
  34.    (setq E1 (entlast))
  35.  
  36.    (setq Wi (EAITbw)
  37.          Wix (EAITbig Wi)
  38.          WH Wix
  39.          WV (+ Wix 90)
  40.    )
  41.  
  42.    (setq P2 (polar (polar P1 (EAITgib WV) 34) (EAITgib WH) -5)
  43.          P3 (polar P2 (EAITgib WH) (/ (- 10 EAITebl) 2))
  44.          P4 (polar P3 (EAITgib WV) 22)
  45.          P5 (polar P4 (EAITgib WH) (- (/ (- 10 EAITebl) 2)))
  46.          P6 (polar (polar P1 (EAITgib WV) 34) (EAITgib WH) 5)
  47.          P7 (polar P6 (EAITgib WH) (- (/ (- 10 EAITebl) 2)))
  48.          P8 (polar P7 (EAITgib WV) 22)
  49.          P9 (polar P8 (EAITgib WH) (/ (- 10 EAITebl) 2))
  50.          P10(polar (polar P1 (EAITgib WV) 30) (EAITgib WH) (- (/ EAITebl 2)))
  51.          P11(polar (polar P1 (EAITgib WV) 30) (EAITgib WH) (/ EAITebl 2))
  52.    )
  53.    
  54.    (if (/= EAITebl 10)
  55.           (command EAITlay EAITlse "EAIT50" ""    
  56.                    EAITlin P2 P3 P4 P5 P2 ""
  57.                    EAITlin P6 P7 P8 P9 P6 ""
  58.           )
  59.    )
  60.    (command EAITlay EAITlse "EAIThilfe" ""
  61.             EAITpkt P10
  62.             EAITpkt P11
  63.    )
  64.    (setq SS1 (EAITSS E1))
  65.    (setq BName (EAITbnr))
  66.    (command EAITblo BName P1 SS1 ""
  67.             EAITege BName P1 "" "" "")
  68.  
  69.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITgib (+ Wix 60)) 15) "" "" (EAITbig (EAITbw))
  70.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  71.    )
  72.  
  73.    (EAITvarz2)
  74.    (princ)
  75. );defun SV
  76.  
  77.  
  78. (princ)
  79.  
  80.